home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 84 / Tiger_Disk_084_20xx_Tiger-Crew-Disk_de_Side_D.d64 / a tomz sprite... (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines
  1. 1 rem *done for -ozsi- in 1997
  2. 2 rem * by tomz/tide/tdr/uturn.
  3. 9 poke 53280,0:poke53281,0:print""
  4. 10 print"[147]":fori=0to63:poke832+i,0:next
  5. 20 gosub 60000
  6. 999 poke198,0:wait198,1:poke198,0:print"[145][145]":end
  7. 60000 data"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  8. 60001 data"[209][209]                    [209][209]"
  9. 60002 data"[209][209] [209][209][209]  [209][209]  [209][209][209]  [209][209][209][209][209] [209]"
  10. 60003 data"[209] [209][209]   [209]  [209] [209]  [209] [209]     [209]"
  11. 60004 data"[209] [209][209]   [209]  [209] [209]  [209] [209][209][209][209] [209][209]"
  12. 60005 data"[209] [209][209]   [209]  [209] [209]  [209] [209]    [209][209]"
  13. 60006 data"[209]  [209][209][209]  [209][209]  [209][209][209][209] [209][209][209][209][209] [209]"
  14. 60007 data"[209][209]                    [209][209]"
  15. 60008 data"[209][209][209]  [209][209][209][209][209]  [209][209]  [209][209]   [209][209][209]"
  16. 60009 data"[209][209][209][209] [209][209]  [209][209]  [209][209][209][209]   [209][209][209][209]"
  17. 60010 data"[209][209][209][209] [209][209][209][209][209]    [209][209]    [209][209][209][209]"
  18. 60011 data"[209][209][209]  [209][209]  [209][209]   [209][209]     [209][209][209]"
  19. 60012 data"[209][209]   [209][209][209][209][209]    [209][209]      [209][209]"
  20. 60013 data"[209]                      [209]"
  21. 60014 data"[209][209][209][209][209][209] [209][209]  [209]   [209] [209][209][209][209][209] [209]"
  22. 60015 data"[209]  [209]  [209]  [209] [209][209] [209][209]    [209][209] [209]"
  23. 60016 data"[209]  [209]  [209]  [209] [209] [209] [209]   [209][209]  [209]"
  24. 60017 data"[209]  [209]  [209]  [209] [209]   [209]  [209][209]   [209]"
  25. 60018 data"[209][209] [209]  [209]  [209] [209]   [209] [209][209]   [209][209]"
  26. 60019 data"[209][209] [209]   [209][209]  [209]   [209] [209][209][209][209][209][209][209]"
  27. 60020 data"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  28. 60100 v=53248:pokev,200:pokev+1,100:pokev+21,1:pokev+39,14:poke2040,13
  29. 60110 fori=0to20 :reada$:fork=0to2:t=0:forj=0to7:b=0
  30. 60140 if mid$(a$,j+k*8+1,1)="[209]"then b=1
  31. 60150 t=t+b*2^(7-j):next:printt;:poke832+i*3+k,t:next:print:next
  32. 60200 return
  33.